home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Updated_St2042581152007.psc / Styler Button 2007 / FrmAbout.frm next >
Text File  |  2007-01-10  |  12KB  |  453 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmAbout 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00E0E0E0&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   4470
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   8040
  10.    BeginProperty Font 
  11.       Name            =   "Georgia"
  12.       Size            =   39.75
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00757B48&
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   298
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   536
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin StylerButton2007.StylerButton V 
  27.       Height          =   600
  28.       Left            =   6180
  29.       TabIndex        =   0
  30.       Top             =   3750
  31.       Visible         =   0   'False
  32.       Width           =   1740
  33.       _ExtentX        =   582
  34.       _ExtentY        =   212
  35.       Caption         =   "OK"
  36.       ForeColor       =   9404976
  37.       CaptionDisableColor=   13153946
  38.       CaptionEffectColor=   15393985
  39.       CaptionEffect   =   4
  40.       IconDisableColor=   13614497
  41.       Theme           =   3
  42.       FocusDottedRect =   0   'False
  43.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  44.          Name            =   "Georgia"
  45.          Size            =   18
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.    End
  53.    Begin VB.Label LBLC 
  54.       AutoSize        =   -1  'True
  55.       BackStyle       =   0  'Transparent
  56.       BeginProperty Font 
  57.          Name            =   "Arial"
  58.          Size            =   48
  59.          Charset         =   0
  60.          Weight          =   700
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       ForeColor       =   &H000000FF&
  66.       Height          =   1125
  67.       Left            =   1890
  68.       TabIndex        =   3
  69.       Top             =   5640
  70.       Width           =   270
  71.    End
  72.    Begin VB.Label LBLB 
  73.       AutoSize        =   -1  'True
  74.       BackStyle       =   0  'Transparent
  75.       BeginProperty Font 
  76.          Name            =   "Lucida Sans Unicode"
  77.          Size            =   36
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H000000FF&
  85.       Height          =   885
  86.       Left            =   -195
  87.       TabIndex        =   2
  88.       Top             =   7170
  89.       Width           =   240
  90.    End
  91.    Begin VB.Label LBLA 
  92.       AutoSize        =   -1  'True
  93.       BackStyle       =   0  'Transparent
  94.       BeginProperty Font 
  95.          Name            =   "Georgia"
  96.          Size            =   20.25
  97.          Charset         =   0
  98.          Weight          =   700
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       ForeColor       =   &H000000FF&
  104.       Height          =   465
  105.       Left            =   -30
  106.       TabIndex        =   1
  107.       Top             =   4350
  108.       Width           =   105
  109.    End
  110. End
  111. Attribute VB_Name = "FrmAbout"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  117. Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  118. Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  119. Private Declare Function RoundRect Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  120. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  121. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  122. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  123.  
  124. Const GWL_EXSTYLE = (-20)
  125. Const WS_EX_LAYERED = &H80000
  126. Const LWA_ALPHA = &H2
  127. Const HWND_TOPMOST = -1
  128. Const HWND_NOTOPMOST = -2
  129. Const SWP_NOMOVE = &H2
  130. Const SWP_NOSIZE = &H1
  131. Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  132.  
  133. Private Sub TOPFORM(hWnd As Long, Action As Boolean)
  134. If Action = True Then
  135.     SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
  136. Else
  137.     SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
  138. End If
  139. End Sub
  140.  
  141.  
  142.  
  143.  
  144. Private Sub Form_Load()
  145. On Local Error Resume Next
  146. LBLB.Left = Me.ScaleWidth / 2 - LBLB.Width / 2 - 1
  147. LBLB.Top = 100
  148.  
  149. lonRect = CreateRoundRectRgn(0, 0, Me.ScaleWidth, Me.ScaleHeight, 20, 20)
  150. SetWindowRgn Me.hWnd, lonRect, True
  151. V.DrawGradientFourColour Me.hDC, 0, 0, Me.ScaleWidth, Me.ScaleHeight / 2 - 1, RGB(255, 255, 255), RGB(255, 255, 255), RGB(168, 208, 229), RGB(168, 208, 229)
  152. V.DrawGradientFourColour Me.hDC, 0, Me.ScaleHeight / 2 - 1, Me.ScaleWidth, Me.ScaleHeight / 2, RGB(146, 193, 217), RGB(146, 193, 217), RGB(213, 236, 247), RGB(213, 236, 247)
  153. RoundRectBorder Me, 0, 0, Me.ScaleWidth - 1, Me.ScaleHeight - 1, 20, 20, vbWhite
  154. FormFadeIn Me, 0, 240, 4
  155.  
  156. TA
  157. End Sub
  158.  
  159.  
  160. Private Sub RoundRectBorder(nObject As Object, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long, nColor As ColorConstants)
  161. Dim A As Variant
  162. A = nObject.ForeColor
  163. nObject.ForeColor = nColor
  164. RoundRect nObject.hDC, X1, Y1, X2, Y2, X3, Y3
  165. nObject.ForeColor = A
  166. End Sub
  167. Private Sub FormFadeIn(ByRef nForm As Form, Optional ByVal nFadeStart As Byte = 0, Optional ByVal nFadeEnd As Byte = 255, Optional ByVal nFadeInSpeed As Byte = 5)
  168. Dim c
  169. Dim ne As Integer, en(32767) As Boolean
  170. For Each c In nForm.Controls
  171.  ne = ne + 1
  172.  en(ne) = c.Enabled
  173.  c.Enabled = False
  174. Next
  175. If nFadeEnd = 0 Then
  176.     nFadeEnd = 255
  177. End If
  178. If nFadeInSpeed = 0 Then
  179.     nFadeInSpeed = 5
  180. End If
  181. If nFadeStart >= nFadeEnd Then
  182.     nFadeStart = 0
  183. ElseIf nFadeEnd <= nFadeStart Then
  184.     nFadeEnd = 255
  185. End If
  186.  
  187.    TransparentsForm nForm.hWnd, 0
  188.     nForm.Show
  189.     Dim i As Long
  190.     For i = nFadeStart To nFadeEnd Step nFadeInSpeed
  191.         TransparentsForm nForm.hWnd, CByte(i)
  192.         DoEvents
  193.         Call Sleep(5)
  194.     Next
  195.     TransparentsForm nForm.hWnd, nFadeEnd
  196.     i = 0
  197. For Each c In nForm.Controls
  198.  i = i + 1
  199.  c.Enabled = en(i)
  200. Next
  201. End Sub
  202. Private Function TransparentsForm(FormhWnd As Long, Alpha As Byte) As Boolean
  203.     SetWindowLong FormhWnd, GWL_EXSTYLE, WS_EX_LAYERED
  204.     SetLayeredWindowAttributes FormhWnd, 0, Alpha, LWA_ALPHA
  205.     LastAlpha = Alpha
  206. End Function
  207. Private Sub FormFadeOut(ByRef nForm As Form)
  208. On Local Error Resume Next
  209. Dim c
  210. Dim S As Integer
  211. For Each c In nForm.Controls
  212.  c.Enabled = False
  213. Next
  214.  
  215. Dim i As Long
  216.     For i = 240 To 0 Step -5
  217.         TransparentsForm nForm.hWnd, CByte(i)
  218.         DoEvents
  219.         Call Sleep(5)
  220.     Next
  221.  
  222. End Sub
  223.  
  224. Private Sub TA()
  225. On Local Error Resume Next
  226.  
  227.  
  228.  
  229. LA
  230. '==============================
  231.  
  232.  
  233. Me.FontSize = 40
  234. Me.FontBold = True
  235. Me.FontName = "Georgia"
  236. Me.ForeColor = RGB(72, 123, 117)
  237.  
  238. For i = 0 To 18
  239.     Me.CurrentX = 10
  240.     Me.CurrentY = 10
  241.     Me.Print Mid("Styler Button 2007", 1, CByte(i))
  242.     DoEvents
  243.     Call Sleep(50)
  244. Next
  245.  
  246. Me.FontBold = False
  247. Me.FontSize = 8
  248.     Me.CurrentX = 520
  249.     Me.CurrentY = 17
  250. Me.Print "«"
  251.  
  252.  
  253.  
  254.  
  255. Me.ForeColor = 0
  256. Me.FontSize = 8
  257. Me.FontName = "Times New Roman"
  258.  
  259.     Me.CurrentX = 437
  260.     Me.CurrentY = 58
  261.  
  262. Me.Print "VER " & App.Major & "." & App.Minor & "." & App.Revision
  263.  
  264. Me.FontBold = True
  265. Me.ForeColor = 0
  266. Me.FontSize = 15
  267. Me.FontName = "Georgia"
  268.  
  269. For i = 0 To 13
  270.     Me.CurrentX = 10
  271.     Me.CurrentY = 70
  272.     Me.Print Mid("Developed BY:", 1, CByte(i))
  273.     DoEvents
  274.     Call Sleep(10)
  275. Next
  276.  
  277. Call Sleep(200)
  278.     
  279. Me.ForeColor = vbRed
  280.  
  281. For i = 0 To 9
  282.     Me.CurrentX = 165
  283.     Me.CurrentY = 70
  284.     Me.Print Mid("UMAIR_11D", 1, CByte(i))
  285.     DoEvents
  286.     Call Sleep(10)
  287. Next
  288.  
  289. Call Sleep(100)
  290.  
  291.  
  292. Me.ForeColor = vbBlack
  293. Me.FontSize = 10
  294. For i = 0 To 63
  295.     Me.CurrentX = 12
  296.     Me.CurrentY = 100
  297.     Me.Print Mid("Styler Button 2007 is Very Quick, Powerful & New styles Botton.", 1, CByte(i))
  298.     DoEvents
  299.     Call Sleep(10)
  300. Next
  301.  
  302. Call Sleep(100)
  303.  
  304.  
  305. For i = 0 To 67
  306.     Me.CurrentX = 12
  307.     Me.CurrentY = 120
  308.     Me.Print Mid("Styler Button 2007 enables you to customize the appearance of your", 1, CByte(i))
  309.     DoEvents
  310.     Call Sleep(10)
  311. Next
  312. Call Sleep(100)
  313.  
  314. For i = 0 To 44
  315.     Me.CurrentX = 12
  316.     Me.CurrentY = 140
  317.     Me.Print Mid("applications to suit your individual needs.", 1, CByte(i))
  318.     DoEvents
  319.     Call Sleep(10)
  320. Next
  321.  
  322. Call Sleep(100)
  323.  
  324. For i = 0 To 30
  325.     Me.CurrentX = 12
  326.     Me.CurrentY = 180
  327.     Me.Print Mid("If You Find Any Problems/Bug.", 1, CByte(i))
  328.     DoEvents
  329.     Call Sleep(10)
  330. Next
  331. Call Sleep(100)
  332.  
  333. For i = 0 To 32
  334.     Me.CurrentX = 12
  335.     Me.CurrentY = 200
  336.     Me.Print Mid("Any Questions For This Project.", 1, CByte(i))
  337.     DoEvents
  338.     Call Sleep(10)
  339. Next
  340.  
  341. Call Sleep(100)
  342.  
  343. For i = 0 To 26
  344.     Me.CurrentX = 12
  345.     Me.CurrentY = 220
  346.     Me.Print Mid("Email:Umair_11D@Yahoo.com", 1, CByte(i))
  347.     DoEvents
  348.     Call Sleep(10)
  349. Next
  350. Call Sleep(100)
  351.  
  352. For i = 0 To 41
  353.     Me.CurrentX = 12
  354.     Me.CurrentY = 240
  355.     Me.Print Mid("Voice NO.:+923453021375 , +923002242573", 1, CByte(i))
  356.     DoEvents
  357.     Call Sleep(10)
  358. Next
  359.  
  360. Call Sleep(100)
  361. Me.FontBold = False
  362. Me.FontSize = 8
  363. For i = 0 To 32
  364.     Me.CurrentX = 12
  365.     Me.CurrentY = 280
  366.     Me.Print Mid("Copyright ⌐ 2004-2007 UMAIR_11D.", 1, CByte(i))
  367.     DoEvents
  368.     Call Sleep(10)
  369. Next
  370.  
  371. V.Visible = True
  372. V.SetFocus
  373. End Sub
  374.  
  375. Private Sub Label1_Click()
  376.  
  377. End Sub
  378.  
  379. Private Sub V_Click()
  380. FormFadeOut Me
  381. TOPFORM Me.hWnd, False
  382. Unload Me
  383. End Sub
  384. Private Sub LA()
  385. LBLA.Top = 10
  386. LBLA.Left = 10
  387. LBLB.Left = (Me.ScaleWidth / 2) - 284 / 2
  388. LBLB.Top = 100
  389. LBLC.Top = 105
  390. LBLC.Left = 142
  391.  
  392. For i = 0 To 15
  393.     LBLA.Caption = Mid("Initializing...", 1, CByte(i))
  394.     DoEvents
  395.     Sleep (40)
  396. Next i
  397.  
  398. Sleep (100)
  399. MA
  400.  
  401. LBLB.Caption = ""
  402. LBLC.Caption = "    OK"
  403.  
  404. Sleep (100)
  405.  
  406. LBLC.Caption = ""
  407. For i = 0 To 15
  408.     LBLA.Caption = Mid("Loading...", 1, CByte(i))
  409.     DoEvents
  410.     Sleep (40)
  411. Next i
  412. Sleep (100)
  413. MA
  414. LBLB.Caption = ""
  415. LBLC.Caption = "    OK"
  416.  
  417. Sleep (100)
  418.  
  419. LBLC.Caption = ""
  420. LBLA.Caption = ""
  421.  
  422. End Sub
  423. Private Sub MA()
  424. For i = 0 To 12
  425.     LBLB.Caption = Mid("[__________]", 1, CByte(i))
  426.     DoEvents
  427.     Sleep (10)
  428. Next i
  429.  
  430. q = True
  431.  
  432.  
  433. For A = 0 To 5
  434. If q = True Then
  435.     q = False
  436. ElseIf q = False Then
  437.     q = True
  438.     qq = 13
  439. End If
  440.     For i = 0 To 12
  441.         If q = True Then
  442.             qq = qq - 1
  443.             LBLC.Caption = Space(qq) & "*"
  444.         ElseIf q = False Then
  445.             LBLC.Caption = Space(i) & "*"
  446.         End If
  447.         
  448.         DoEvents
  449.         Sleep (5)
  450.     Next i
  451. Next A
  452. End Sub
  453.